home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / game / role / CTW10d.lha / CTW / scripts / globalscript.script
Text File  |  1997-09-02  |  324b  |  22 lines
  1. GLOGET 50 @BANKTIMER|
  2. IF @BANKTIMER = 0 SETTIMER|
  3.  
  4. :INTERESTLOOP|
  5. TIMER @CHK|
  6. IF @CHK => @BANKTIMER ADDINTEREST|
  7. GOTO INTERESTLOOP|
  8.  
  9. :ADDINTEREST|
  10. GLOGET 24 @ACCNT|
  11. MATH @ACCNT / 150 @INT|
  12. MATH @ACCNT + @INT|
  13. GLOSET 24 @ACCNT|
  14.  
  15. :SETTIMER|
  16. TIMER @BANKTIMER|
  17. MATH @BANKTIMER + 6000|
  18. GLOSET 50 @BANKTIMER|
  19. GOTO INTERESTLOOP|
  20.  
  21.  
  22.